200 POKE53280,0:POKE53281,0:PRINT"[147]":POKE53272,23
210 PRINTTAB(8)"[211]PION [201][201][201] ([196] 2 [205]ISSION)"
220 PRINTTAB(9)"[159]VON [211]TEFFEN [199]OEBBELS"
230 PRINTTAB(15)"(C) 1985"
240 PRINTTAB(7)"CA. 1:15 [205]IN. [204]ADEZEIT."
250 PRINT"[158][194]ITTE LASSEN [211]IE DIE [198]LOPPY ANGESCHALTET"
260 PRINT"[144]POKE4096,0:POKE44,16:NEW"
270 PRINT"LOAD"CHR$(34)"D.2"CHR$(34)",8[145][145][145][145][145][145][145]"
280 POKE631,13:POKE632,13:POKE633,82:POKE634,85:POKE635,78:POKE636,13:POKE198,6
900 REM *** SID INITIALISIEREN ***
910 S=54272:FORI=STOS+24:POKEI,0:NEXT
930 POKE53245,1:POKE53246,1:POKES+5,96:POKES+12,9:POKES+19,0
940 POKE53247,1:POKES+2,0:POKES+9,255:POKES+16,0:POKES+13,140:POKES+20,240
950 POKES+6,100
999 REM ** MASCHINENPRG FUER MUSIK **
1000 DATA174,255,207,202,142,255,207,240,21,174,254,207,202,142,254,207,240,83
1010 DATA174,253,207,202,142,253,207,240,71,76,49,234,32,66,196,169,0,141,4,212
1020 DATA173,250,207,174,251,207,172,252,207,141,1,212,142,0,212,140,255,207
1030 DATA234,234,169,33:REM_WELLENF.S1
1040 DATA141,4,212,76,9,196,162,0,189,0,198,157,250,207,232,224,3,208,245,24
1050 DATA173,69,196,105,3,141,69,196,144,7,174,70,196,232,142,70,196,96,76,167
1060 DATA196,32,135,196,169,0,141,11,212,173,250,207,174,251,207,172,252,207
1070 DATA141,8,212,142,7,212,140,254,207,169,65:REM_WELLENF.S2
1080 DATA141,11,212,76,18,196,162,0,189,0,201,157,250,207,232,224,3,208,245,24
1090 DATA173,138,196,105,3,141,138,196,144,7,174,139,196,232,142,139,196,96
1100 DATA32,204,196,169,0,234,141,18,212,173,250,207,174,251,207,172,252,207
1110 DATA141,15,212,142,14,212,140,253,207,240,40,169,17:REM_WELLENF.S3
1120 DATA141,18,212,76,49,234,162,0,189,0,204,157,250,207,232,224,3,208,245,24
1130 DATA173,207,196,105,3,141,207,196,144,7,174,208,196,232,142,208,196,96
1140 DATA169,0,141,69,196,141,138,196,141,207,196,169,198,141,70,196,169,201
1150 DATA141,139,196,169,204,141,208,196,169,64,141,255,207,141,254,207,141,253
1160 FORI=50176TO50464:READQ:POKEI,Q:NEXT:REMSYS50441
1170 DATA207,76,49,234,120,169,0,141,20,3,169,196,141,21,3,88,96
1180 REM **** STIMME 1 ****
2000 DATA7493,64,6676,64,7493,64,8411,32,8911,32,10002,64,8911,128,8411,64
2010 DATA8411,64,10002,64,10002,64,7493,64,8411,64,6676,128,5947,64,5001,64
2020 DATA6676,64,7493,64,8411,64,8411,64,7493,128,0,64,8411,64,6676,64,7493,64
2030 DATA8411,32,8911,32,10002,64,8911,128,8411,64,8411,64,10002,64,10002,64
2040 DATA7493,64,8411,64,6676,128,6301,64,5001,64,6676,64,7493,64,8411,64
2050 DATA8911,64,8411,64,7493,64,6676,64,0,0
2999 I=50688
3000 FORC=0TO91STEP2:READQ:READQ1:POKEI+2,Q1:HI=INT(Q/256)
3001 LO=Q-(HI*256):POKEI,HI:POKEI+1,LO:I=I+3:NEXT
3010 REM **** STIMME 2 :  ****
3020 DATA5001,64,5613,64,6301,64,6676,32,7493,32,8411,64,6676,64,7493,64,8411
3030 DATA64,6676,64,6301,64,6676,64,6301,64,6676,32,6301,32,5613,128,5001,64
3040 DATA6301,64,5001,64,5613,32,6301,32,6676,64,6676,64,6301,128,0,64,6301,64
3050 DATA6676,64,6301,32,5613,32,5001,64,8411,64,8411,64,7493,64,7072,64,6676
3060 DATA64,6301,64,6676,32,6301,32,5613,64,6301,64,6676,32,6301,32,5613,64
3070 DATA5001,64,5001,64,5001,32,5613,32,6301,64,6676,64,7072,64,6676,64,6301
3080 DATA64,6676,64,0,0
3999 I=51456
4000 FORC=0TO107STEP2:READQ:READQ1:POKEI+2,Q1:HI=INT(Q/256)
4001 LO=Q-(HI*256):POKEI,HI:POKEI+1,LO
4002 I=I+3:NEXT
4010 REM **** STIMME 3 :  ****
4020 DATA3338,64,4455,64,4205,32,3764,32,3338,64,6676,64,5613,64,6301,64,6676
4030 DATA64,5613,64,4205,32,3746,32,4205,32,4455,32,5001,64,4205,64,5613,32
4040 DATA5001,32,4720,64,5001,64,4455,64,4205,64,3746,64,3338,32,3746,32,4205
4050 DATA32,4455,32,5001,128,0,64,4205,64,5613,64,5001,32,4455,32,4205,64
4060 DATA3338,64,3746,32,4205,32,4455,32,5001,32,5613,64,5613,64,5001,32,4455
4070 DATA32,4205,64,4720,64,5298,64,5613,32,5001,32,4720,64,5001,64,5001,32
4080 DATA4455,32,4205,32,4455,32,4205,32,3746,32,3338,64,5613,64,5001,32
4090 DATA4455,32,5001,64,3338,64,0,0
4999 I=52224
5000 FORC=0TO125STEP2:READQ:READQ1:POKEI+2,Q1:HI=INT(Q/256)
5001 LO=Q-(HI*256):POKEI,HI:POKEI+1,LO:I=I+3:NEXT
60000 NEW
60004 REM (C) 1985 STEFFEN GOEBBELS
60005 REM      ALTE HEERSTR.25
60006 REM        4179 WEEZE 1